home *** CD-ROM | disk | FTP | other *** search
/ Power Disk 64 1997 2 / Power_Disk_64_97-02_1997-09_Lagune_de_Side_B.d64 / five card stud (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  13KB  |  501 lines
  1. 10 gosub56195
  2. 11 fors=54272to54296:pokes,0
  3. 12 poke54296,15
  4. 90 poke53280,2:poke53281,11
  5. 100 dim n$(55),d$(55),cd$(5,6),s$(5,6),v(5,6),bc(5,4),ot(6,5),fp$(21,5)
  6. 150 dim e1$(5,5),e2$(5,5),c(21),w1$(11),w2$(11)
  7. 200 t(1)=14:t(2)=27:t(3)=14:t(4)=1
  8. 210 cu$(1)="":cu$(2)=""
  9. 230 cu$(4)=cu$(2):cu$(3)=""
  10. 250 b$(1)="_":b$(2)="^[157][157]"
  11. 270 b$(3)="_":b$(4)=b$(2)
  12. 300 bc(1,1)=2:bc(1,2)=3:bc(1,3)=4:bc(2,1)=3:bc(2,2)=4:bc(2,3)=1
  13. 320 bc(3,1)=4:bc(3,2)=1:bc(3,3)=2:bc(4,1)=1:bc(4,2)=2:bc(4,3)=3
  14. 340 for i=1to4:st(i)=0:next
  15. 345 print"[158][147] [146][145][157]                              [146][157] [146]"
  16. 350 print" [146]       five card stud        [146]"
  17. 351 print" [146]  copywrite 1983  g. adams   [146]"
  18. 352 print" [146][157]                              [146][145][157] [146]"
  19. 360 print"rules[146] - 25 cent ante"
  20. 370 print" - bet 25 cent maximum"
  21. 371 print" - maximum of 3 bumps"
  22. 372 print"[153][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187][146]"
  23. 373 print"[161]to bet  [146] press 5,10 or 25   [161][146]"
  24. 374 print"[161]to call [146] press c            [161][146]"
  25. 375 print"[161]to raise[146] press r5,r10 or r25[161][146]"
  26. 376 print"[161]to fold [146] press f            [161][146]"
  27. 377 print"[188][146][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][190][146]"
  28. 380 print"[159]press space[146] for each new hand"
  29. 382 print"press @ when you've had enough"
  30. 400 input"what's your name";nm$
  31. 500 for i=1to54:read n$(i):next
  32. 520 for i=1to5:for j=0to4:read ot(i,j):nextj,i
  33. 550 fori=1to20:forj=1to4:read fp$(i,j):nextj,i
  34. 560 fori=1to10:readw1$(i),w2$(i):next
  35. 570 fori=1to4:forj=1to4:read e1$(i,j),e2$(i,j):nextj,i
  36. 1000 print"[147]";:tp=100:gosub50000
  37. 1020 d=1:tr=0:nf=0:for i=1to4:ip(i)=25:fd(i)=0:next
  38. 1050 x%=rnd(-ti):fori=1to21:c(i)=0:next
  39. 2000 for n=1to5
  40. 3000 for i=1to4
  41. 3100 nr(i)=0:cb(i)=0:iffd(i)=1goto7000
  42. 3200 cd$(i,n)=d$(d):d=d+1:m=t(i)+2*n-3
  43. 3500 l$=left$(cd$(i,n),1)
  44. 3600 v(i,n)=val(l$)
  45. 3700 if v(i,n)<>0 goto 3800
  46. 3710 if l$="t"then v(i,n)=10:goto 3800
  47. 3720 if l$="j"then v(i,n)=11:goto 3800
  48. 3730 if l$="q"then v(i,n)=12:goto 3800
  49. 3740 if l$="k"then v(i,n)=13:goto 3800
  50. 3750 v(i,n)=14
  51. 3800 s$(i,n)=right$(cd$(i,n),1):r$=s$(i,n)
  52. 3805 poke54276,129:poke54276,0
  53. 3810 onigoto3820,3830,3840,3850
  54. 3820 forj=124to50step-1
  55. 3824 pokev+1,j:next
  56. 3828 pokev+1,124:goto3900
  57. 3830 forj=160to210+8*n
  58. 3834 pokev,j:next
  59. 3838 pokev,160:goto3900
  60. 3840 forj=124to194
  61. 3844 pokev+1,j:next
  62. 3848 pokev+1,124:goto3900
  63. 3850 forj=160to40+8*n step-1
  64. 3854 pokev,j:next
  65. 3858 pokev,160
  66. 3900 print cu$(i);:ifn=1goto5500
  67. 3910 cl$="":ifn=2thencl$="[150]"
  68. 4100 print tab(m)cl$;"[167]"+""+l$+"  [146]"
  69. 4200 print tab(m)cl$;"[167]"+""+r$+"  [146]"
  70. 4300 print tab(m)cl$;"[167]  "+r$+"[146]"
  71. 4400 print tab(m)cl$;"[167]  "+l$+"[146]"
  72. 4450 poke59467,16:poke59466,15:poke59464,200:poke59464,0
  73. 4500 on n-2 gosub 20500,20300,20000
  74. 4600 if n=2 then fv(i)=v(i,2)
  75. 4700 m=0
  76. 4800 forw=2ton
  77. 4900 ifv(i,1)=v(i,w)then m=m+1
  78. 5000 next
  79. 5100 tv(i)=v(i,1)
  80. 5200 on m gosub 25000,26000,27000
  81. 5250 if tv(i)<fv(i)then tv(i)=fv(i)
  82. 5300 ifn=5andtv(i)<15thengosub29000
  83. 5400 goto 7000
  84. 5500 if i<4 goto 6200
  85. 5600 print cu$(4);
  86. 5700 print "[150]   [146]":print " "+l$+"[150] "
  87. 5900 print " "+r$+"[150] ":print "   [146]"
  88. 6100 goto 6999
  89. 6200 for k=1to4:print tab(t(i))"[150]   [146]":next
  90. 6999 poke59467,16:poke59466,15:poke59464,200:poke59464,0
  91. 7000 next i
  92. 7100 if n=1 goto 9200
  93. 7200 mx=1
  94. 7300 for i=2to4
  95. 7400 if fv(i)>fv(mx)then mx=i
  96. 7500 if fv(i)=fv(mx)then f=2:gosub 31000
  97. 7600 next
  98. 7700 be=mx:r=0:ltb=0
  99. 7800 onmx gosub37000,38000,39000,35000
  100. 7900 for m=1to3:bo(m)=bc(be,m):next
  101. 8000 rf=0
  102. 8100 for y=1to3
  103. 8300 be=bo(y):iffd(be)=1goto 8700
  104. 8350 if be=4 thengosub 35200:goto8600
  105. 8400 nra=tr-nr(be):gosub40000
  106. 8600 if rf=1 goto 7900
  107. 8700 next
  108. 8750 for z=1to1000:next
  109. 8800 forp=1to4
  110. 9000 printcu$(p);:printtab(t(p))b$(p);"[145]  [157][157][157]         [157][157][157][157][157][157][157][157][157]           "
  111. 9100 next
  112. 9150 if nf=3goto10000
  113. 9200 next n
  114. 10000 forz=1to1000:next
  115. 10100 for i=1to4
  116. 10200 iffd(i)=1goto10700
  117. 10300 print cu$(i);
  118. 10400 print tab(t(i))""+left$(cd$(i,1),1)+"[167][146]"
  119. 10500 print tab(t(i))""+s$(i,1)+"[167][146]"
  120. 10600 print tab(t(i))" [167][157][157] [167][146]"
  121. 10700 next i
  122. 11000 mx=1
  123. 11100 for i=2to4
  124. 11200 if tv(i)>tv(mx)then mx=i
  125. 11300 if tv(i)=tv(mx)then gosub 30000
  126. 11400 next
  127. 12000 printcu$(mx);:x%=rnd(1)*10+1
  128. 12100 printtab(t(mx))b$(mx);"[157] [145] [157][157][157]";w1$(x%)
  129. 12140 printcu$(mx);"";
  130. 12150 printtab(t(mx))b$(mx);"[157] [157][145]";w2$(x%)
  131. 12200 for i=1to4
  132. 12300 if i=mx then st(i)=st(i)+tp-ip(i):goto 12700
  133. 12400 st(i)=st(i)-ip(i)
  134. 12700 next
  135. 15000 get c$:if c$=""goto 15000
  136. 15050 ifc$<>"@"goto1000
  137. 15100 print"[147]";:gosub 50000
  138. 15200 end
  139. 20000 if v(i,2)<v(i,3)then sw=v(i,2):v(i,2)=v(i,3):v(i,3)=sw
  140. 20100 if v(i,3)<v(i,4)then sw=v(i,3):v(i,3)=v(i,4):v(i,4)=sw
  141. 20200 if v(i,4)<v(i,5)then sw=v(i,4):v(i,4)=v(i,5):v(i,5)=sw
  142. 20300 if v(i,2)<v(i,3)then sw=v(i,2):v(i,2)=v(i,3):v(i,3)=sw
  143. 20400 if v(i,3)<v(i,4)then sw=v(i,3):v(i,3)=v(i,4):v(i,4)=sw
  144. 20500 if v(i,2)<v(i,3)then sw=v(i,2):v(i,2)=v(i,3):v(i,3)=sw
  145. 21000 p=0
  146. 21100 for w=2ton-1
  147. 21200 if v(i,w)<>v(i,w+1)goto 21800
  148. 21400 p=p+1:if p=1 then fv(i)=10*v(i,w):goto 21800
  149. 21500 if v(i,w)=v(i,w-1)then fv(i)=1000*v(i,w):goto 21800
  150. 21600 fv(i)=100*v(i,2)
  151. 21700 if p=3 then fv(i)=100000*v(i,2)
  152. 21800 next
  153. 21900 if p=0 then fv(i)=v(i,2)
  154. 22000 return
  155. 25000 if fv(i)<15 then tv(i)=10*v(i,1):goto 25400
  156. 25100 if fv(i)>141 then tv(i)=10*fv(i):goto 25400
  157. 25300 tv(i)=100*v(i,1):if tv(i)<10*fv(i)then tv(i)=10*fv(i)
  158. 25400 return
  159. 26000 if fv(i)<141 then tv(i)=100*fv(i):goto 26200
  160. 26100 tv(i)=10000*v(i,1)
  161. 26200 return
  162. 27000 tv(i)=100000*v(i,1):return
  163. 29000 forj=1to4
  164. 29010 ifs$(i,j)<>s$(i,j+1)thenj=4:next:goto29040
  165. 29020 next
  166. 29030 tv(i)=15000+fv(i):return
  167. 29040 mn=v(i,1):max=v(i,1)
  168. 29050 forj=2to5
  169. 29060 ifv(i,j)<mnthenmn=v(i,j)
  170. 29070 ifv(i,j)>maxthenmax=v(i,j)
  171. 29080 next
  172. 29090 ifmax-mn=4thentv(i)=14500+fv(i)
  173. 29100 return
  174. 30000 for w=1to4
  175. 30100 ifv(i,w)>=v(i,w+1)goto 30300
  176. 30200 sw=v(i,w):v(i,w)=v(i,w+1):v(i,w+1)=sw
  177. 30300 next
  178. 30400 for w=1to4
  179. 30500 if v(mx,w)>v(mx,w+1)goto 30700
  180. 30600 sw=v(mx,w):v(mx,w)=v(mx,w+1):v(mx,w+1)=sw
  181. 30700 next
  182. 30800 f=1
  183. 31000 forw=fton
  184. 31010 ifv(i,w)>v(mx,w)then mx=i:return
  185. 31020 ifv(i,w)<v(mx,w)then return
  186. 31030 next
  187. 31040 return
  188. 35000 print""
  189. 35100 poke19,1:input"bet ";tb$:poke19,0:tb=val(tb$)
  190. 35150 ff=1:iftb<26goto36000
  191. 35160 print"limit is 25"
  192. 35170 for z=1to2000:next
  193. 35175 print"             "
  194. 35180 goto35000
  195. 35200 print""
  196. 35220 ifr<3goto35300
  197. 35250 poke19,1:input"c or f[157][157][157][157][157]";de$:poke19,0
  198. 35260 ifleft$(de$,1)="c"orleft$(de$,1)="f" goto35400
  199. 35270 print"limit_3 raises[146]"
  200. 35280 for z=1to3000:next
  201. 35285 print"              [157][157][157][157][157][157][157][157][157][157][157][157][157]           "
  202. 35290 goto35200
  203. 35300 poke19,1:input"c,r or f[157][157][157][157][157][157][157]";de$:poke19,0
  204. 35400 if left$(de$,1)="f"then:fd(4)=1:goto36000
  205. 35500 if left$(de$,1)="c" then tb=ltb:goto 36000
  206. 35600 tb=val(right$(de$,len(de$)-1))
  207. 35610 if tb<26then35620
  208. 35615 forz9=1to6:print"max bump is 25[146]"
  209. 35616 for z=1to600:next:print"[145]              ":forz=1to100:next:next
  210. 35617 print"              [157][157][157][157][157][157][157][157][157][157][157][157][157]           [145][145]"
  211. 35618 goto35300
  212. 35620 tb=ltb+tb:rf=1:r=r+1:tr=tr+1
  213. 36000 print"           [157][157][157][157][157][157][157][157][157][157][157]           "
  214. 36100 if fd(4)=1 thengosub59910:return
  215. 36200 gosub 47000
  216. 36300 return
  217. 37000 x%=rnd(1)*n
  218. 37100 if tv(mx)>14 goto 37300
  219. 37110 if tr>0 then z=1:goto37900
  220. 37120 z=2:goto 37900
  221. 37300 if fv(mx)<15andtv(mx)<>10*v(mx,2)thenz=3:goto37900
  222. 37310 if tv(mx)>=10*v(mx,2)then z=5:goto37900
  223. 37320 z=4
  224. 37900 tb=ot(z,x%)
  225. 37910 ff=1:gosub 47000
  226. 37920 return
  227. 38000 x%=rnd(1)*n
  228. 38100 if tv(mx)>14 goto 38300
  229. 38110 if tr>0 then z=2:goto 38900
  230. 38120 z=3:goto 38900
  231. 38300 if tv(mx)<141 and tv(mx)<>10*v(mx,2)then z=4:goto 38900
  232. 38310 tb=25:ltb=tb:goto38910
  233. 38900 tb=ot(z,x%)
  234. 38910 ff=1:gosub 47000
  235. 38920 return
  236. 39000 x%=rnd(1)*n
  237. 39020 if tv(mx)<15 then z=1:goto39900
  238. 39050 if tv(mx)>=10*v(mx,2) then z=5:goto39900
  239. 39100 if fv(mx)<15 then z=4:goto39900
  240. 39300 if fv(mx)>14and tr>0 then z=2:goto39900
  241. 39400 z=3
  242. 39900 tb=ot(z,x%)
  243. 39910 ff=1:gosub 47000
  244. 39920 return
  245. 40000 x%=10*rnd(1)+1:z=4
  246. 40050 if tv(be)>=fv(mx)goto41000
  247. 40100 if x%<=be andnra<=be*(n-3.5)andfv(be)*10>fv(mx)goto42000
  248. 40150 if ltb=5andn<>5goto42600
  249. 40200 if 10*tv(be)<fv(mx)andn>bethen gosub59910:return
  250. 40300 if be=1andx%<n^2*2-9then gosub59910:return
  251. 40400 if be=2andx%<n^2-12then gosub59910:return
  252. 40450 if be=3andx%<n^2-13then gosub59910:return
  253. 40500 goto42600
  254. 41000 if ltb<=10goto41300
  255. 41020 iftv(be)<15andnra>beandx%<=2*(n-be+1)thengosub59910:return
  256. 41050 if n=2goto41300
  257. 41100 forz=1to4
  258. 41150 if fd(z)=1goto41210
  259. 41200 iftv(be)>=10*v(z,3)goto41300
  260. 41210 next
  261. 41220 if nra>be+n-4andx%<n-bethengosub59910:return
  262. 41300 iftv(be)>=10*fv(mx)then z=5:goto42000
  263. 41400 forz=1to4
  264. 41440 if fd(z)=1goto41550
  265. 41500 iftv(be)<10*v(z,2)goto41600
  266. 41550 next
  267. 41560 z=4:goto42000
  268. 41570 if n=2goto41800
  269. 41600 forz=1to4
  270. 41620 if fd(z)=1goto41650
  271. 41640 iftv(be)<10*v(z,3)goto41800
  272. 41650 next
  273. 41660 ifnra<be+n-3andx%<3*be+2thenz=4:goto42000
  274. 41800 iftv(be)>14andnra<be+n-4andx%<2*be+2thenz=3:goto42000
  275. 41900 if nra<be+n-4andx%<2thenz=3:goto42000
  276. 41950 goto42600
  277. 42000 ifr=3goto42600
  278. 42100 x%=rnd(1)*n
  279. 42200 tb=ltb+ot(z,x%):r=r+1:tr=tr+1:nr(be)=nr(be)+1:rf=1
  280. 42500 goto47000
  281. 42600 tb=ltb
  282. 47000 ifff<>1then47050
  283. 47001 ff=0:printcu$(be);tab(t(be))b$(be);"bet";tb:gosub47700:goto47300
  284. 47050 printcu$(be);tab(t(be))b$(be);"call";ltb;"[157][157][157][157][157][157][157][157][157]          "
  285. 47060 gosub47700
  286. 47100 if rf=1 then printcu$(be)tab(t(be))b$(be);"raise[146]";tb-ltb:gosub47700
  287. 47300 tp=tp+tb-cb(be):ip(be)=ip(be)+tb-cb(be):cb(be)=tb:ltb=tb
  288. 47400 print"";tp
  289. 47500 forz=1to600:next
  290. 47600 return
  291. 47700 poke59467,16:poke59466,15:x9=rnd(-ti)
  292. 47705 k5=3:ifltb<15thenk5=2
  293. 47710 fork6=1tok5:poke59464,30*be+15*int(9*rnd(1))
  294. 47720 fort7=1to200-30*k6:next:poke59464,0
  295. 47730 next
  296. 47740 return
  297. 48000 mx=1
  298. 48100 fori=1to4
  299. 48200 if st(i)>=st(mx)then mx=i
  300. 48300 next
  301. 48400 mn=1
  302. 48450 fori=1to4
  303. 48500 if st(i)<=st(mn)then mn=i
  304. 48600 next
  305. 48700 x%=rnd(1)*4+1
  306. 48800 printcu$(mx);:fori=1to4:printtab(t(mx))"";e1$(x%,i);"[146]":next
  307. 48900 forz=1to4000:next
  308. 49000 printcu$(mn);:fori=1to4:printtab(t(mn))"";e2$(x%,i);"[146]":next
  309. 49100 print"";
  310. 49200 return
  311. 50000 print"";:b=14:gosub57000
  312. 50100 printtab(15)"[169]       [223][146]"
  313. 50200 printtab(14)"[169] [155]$$pot$$ [223][146]"
  314. 50300 printtab(13)"[169]           [223][146]"
  315. 50400 printtab(12)"[169]             [223][146]"
  316. 50500 printtab(11)"[167]               [146][165]"
  317. 50501 printtab(11)"[167]               [146][165]"
  318. 50502 printtab(11)"[167]               [146][165]"
  319. 50503 printtab(11)"[167]               [146][165]"
  320. 50504 printtab(11)"[167]               [146][165]"
  321. 50600 print"[145][145][145][145][145]":b=1:gosub57000
  322. 50700 print"[145][145][145][145][145]":b=27:gosub57000
  323. 50900 printtab(11)"[167]               [146][165]"
  324. 51000 printtab(12)"[223]             [146][169]"
  325. 51100 printtab(13)"[223]           [146][169]"
  326. 51200 printtab(14)"[223]         [146][169]"
  327. 51210 printtab(15)"[223]       [146][169]"
  328. 51300 print
  329. 51350 b=14:gosub57000
  330. 51400 printcu$(1);tab(8)"[155]felix"
  331. 51410 printcu$(2);tab(27)"[145][145]murray"
  332. 51420 printcu$(3);tab(8)"oscar"
  333. 51430 printcu$(4);"[145][145] ";nm$
  334. 51800 for i=1 to 4
  335. 51810 a$="up"
  336. 51820 if st(i)<0 then a$="down"
  337. 51900 printcu$(i);
  338. 52000 printtab(t(i))"[155][145]";a$;abs(st(i))
  339. 52100 next
  340. 52200 ifc$="@"thengosub48000:return
  341. 53000 for i=1to54:d$(i)=" ":next
  342. 53100 vac=1:l=1
  343. 53200 for h=1to3
  344. 53300 x=rnd(-ti)
  345. 53400 gosub56000
  346. 53800 for i=1to18
  347. 53900 x%=rnd(1)*54+1
  348. 54000 if d$(x%)=" "goto 54300
  349. 54100 if d$(vac)<>" "then vac=vac+1:goto 54100
  350. 54200 x%=vac
  351. 54300 if x%=53orx%=54thend$(x%)="jr":goto 54600
  352. 54400 d$(x%)=n$(l):l=l+1
  353. 54600 next
  354. 54800 next
  355. 54900 for i=1to54:n$(i)=d$(i):next
  356. 54950 print"";tp;"[157] "
  357. 55000 return
  358. 56000 v=53248:fort=0to4:pokev+2*t,160:pokev+2*t+1,126:next
  359. 56010 poke2040,13:poke2041,15:poke2042,15:poke2043,13:poke2044,14
  360. 56020 pokev+21,15
  361. 56030 pokev+23,15:pokev+29,15
  362. 56040 pokev+39,10:pokev+40,1:pokev+41,1:pokev+42,10:pokev+43,1
  363. 56055 poke54272,31:poke54273,31:poke54276,129:fork=1to15:next:poke54276,0
  364. 56056 fork=-9to25 step2
  365. 56060 pokev+16,0:pokev,147-k:pokev+4,147-k
  366. 56061 pokev+1,112+abs(k)/2:pokev+5,112+abs(k)/2:pokev+21,15:next
  367. 56068 poke2041,14:pokev+21,27:pokev+23,27:pokev+29,27
  368. 56070 fork=0to38step2
  369. 56076 pokev,122+k:pokev+8,122+k:pokev+1,124:pokev+9,124
  370. 56080 ifk>10thenpoke54276,129:poke54276,0
  371. 56085 next
  372. 56090 return
  373. 56195 fork=832to1022:readp:pokek,p:next:return
  374. 56200 data 0 , 0 , 0
  375. 56201 data 0 , 0 , 0
  376. 56202 data 0 , 0 , 0
  377. 56203 data 0 , 0 , 0
  378. 56204 data 0 , 0 , 0
  379. 56205 data 0 , 0 , 0
  380. 56206 data 0 , 127 , 254
  381. 56207 data 0 , 255 , 252
  382. 56208 data 1 , 255 , 248
  383. 56209 data 3 , 255 , 240
  384. 56210 data 7 , 255 , 224
  385. 56211 data 15 , 255 , 192
  386. 56212 data 31 , 255 , 128
  387. 56213 data 63 , 255 , 0
  388. 56214 data 127 , 254 , 0
  389. 56215 data 0 , 0 , 0
  390. 56216 data 0 , 0 , 0
  391. 56217 data 0 , 0 , 0
  392. 56218 data 0 , 0 , 0
  393. 56219 data 0 , 0 , 0
  394. 56220 data 0 , 0 , 0,0
  395. 56221 data 0 , 0 , 0
  396. 56222 data 0 , 0 , 0
  397. 56223 data 0 , 0 , 0
  398. 56224 data 0 , 0 , 0
  399. 56225 data 0 , 0 , 0
  400. 56226 data 0 , 0 , 0
  401. 56227 data 0 , 0 , 0
  402. 56228 data 0 , 0 , 1
  403. 56229 data 0 , 0 , 2
  404. 56230 data 0 , 0 , 5
  405. 56231 data 0 , 0 , 10
  406. 56232 data 0 , 0 , 21
  407. 56233 data 0 , 0 , 42
  408. 56234 data 0 , 0 , 84
  409. 56235 data 0 , 0 , 168
  410. 56236 data 170 , 171 , 80
  411. 56237 data 85 , 85 , 160
  412. 56238 data 170 , 171 , 64
  413. 56239 data 85 , 85 , 128
  414. 56240 data 255 , 255 , 0
  415. 56241 data 0 , 0 , 0,0
  416. 56242 data 0 , 0 , 0
  417. 56243 data 0 , 0 , 0
  418. 56244 data 0 , 0 , 0
  419. 56245 data 0 , 0 , 0
  420. 56246 data 0 , 0 , 0
  421. 56247 data 0 , 0 , 0
  422. 56248 data 0 , 0 , 1
  423. 56249 data 0 , 0 , 3
  424. 56250 data 0 , 0 , 7
  425. 56251 data 0 , 0 , 14
  426. 56252 data 0 , 0 , 28
  427. 56253 data 0 , 0 , 56
  428. 56254 data 0 , 0 , 112
  429. 56255 data 0 , 0 , 224
  430. 56256 data 0 , 1 , 192
  431. 56257 data 255 , 255 , 128
  432. 56258 data 255 , 255 , 0
  433. 56259 data 255 , 254 , 0
  434. 56260 data 0 , 0 , 0
  435. 56261 data 0 , 0 , 0
  436. 56262 data 0 , 0 , 0
  437. 56270 return
  438. 57000 printtab(b)"[207][163][163][163][163][163][163][163][163][163][208]"
  439. 57010 printtab(b)"[165]         [167]"
  440. 57020 printtab(b)"[165]         [167]"
  441. 57030 printtab(b)"[204][164][164][164][164][164][164][164][164][164][186]"
  442. 57040 return
  443. 59910 printcu$(be);
  444. 59920 printtab(t(be))"[150] f [146]        "
  445. 59930 printtab(t(be))" o [146]        "
  446. 59940 printtab(t(be))" l [146]        "
  447. 59945 printtab(t(be))" d [146]        "
  448. 59946 print"[145][145][145][145][145]"
  449. 59947 x%=rnd(1)*13+1:iffv(mx)>110thenx%=14+rnd(1)*6
  450. 59949 ifc(x%)=1goto59947
  451. 59950 c(x%)=1:iftv(be)>=fv(mx)thenx%=20
  452. 59952 forj=1to4:printtab(t(be)+4)"";fp$(x%,j);"[146]":next
  453. 59955 forz=1to600:next
  454. 59956 printcu$(be);tab(t(be))b$(be);"[145]  [157][157][157]         [157][157][157][157][157][157][157][157][157]          "
  455. 59960 tv(be)=0:fv(be)=0:fd(be)=1:nf=nf+1:return
  456. 60000 data"2[211]","3[211]","4[211]","5[211]","6[211]","7[211]","8[211]","9[211]","t[211]","j[211]","q[211]","k[211]","a[211]"
  457. 60010 data"2[218]","3[218]","4[218]","5[218]","6[218]","7[218]","8[218]","9[218]","t[218]","j[218]","q[218]","k[218]","a[218]"
  458. 60020 data"2[193]","3[193]","4[193]","5[193]","6[193]","7[193]","8[193]","9[193]","t[193]","j[193]","q[193]","k[193]","a[193]"
  459. 60030 data"2[216]","3[216]","4[216]","5[216]","6[216]","7[216]","8[216]","9[216]","t[216]","j[216]","q[216]","k[216]","a[216]"
  460. 60040 data"jr","jr"
  461. 60100 data 5,5,5,10,10,5,5,10,10,25,10,10,10,25,25,10,10,25,25,25,25,25,25
  462. 60200 data 25,25
  463. 60300 data"when   ","do the ","girls  ","arrive "
  464. 60305 data"just   ","isn't  ","my     ","night  "
  465. 60310 data"too    ","many   ","lousy  ","cards  "
  466. 60315 data"i can't","argue  ","with   ","that   "
  467. 60317 data"sex is ","a lot  ","more   ","fun    "
  468. 60318 data"anyone ","want   ","another","beer   "
  469. 60320 data"this   ","game is","for the","birds  "
  470. 60325 data"anyone ","want to","play   ","go fish"
  471. 60327 data"poker  ","just   ","isn't  ","my game"
  472. 60328 data"anyone ","know   ","another","game   "
  473. 60330 data"i'm    ","going  ","to the ","john   "
  474. 60335 data"where's","the    ","nearest","bar    "
  475. 60337 data"should ","have   ","stayed ","at home"
  476. 60340 data"i can't","compete","with   ","those  "
  477. 60350 data"no use ","giving ","money  ","away   "
  478. 60360 data"may a  ","tiger  ","swallow","you up "
  479. 60361 data"may a  ","hippo  ","trample","on you "
  480. 60362 data"may a  ","bat fly","up your","nose   "
  481. 60363 data"may an ","angry  ","hamster","eat you"
  482. 60370 data"i hope ","you're ","not    ","bluffin"
  483. 61000 data"your money","is welcome"
  484. 61010 data"read them","and weep"
  485. 61020 data"thankyou","gentlemen"
  486. 61030 data"success is","so sweet"
  487. 61040 data"thanks! i","needed that"
  488. 61050 data"accepted","with thanks"
  489. 61060 data"i charge $5","for lessons"
  490. 61070 data"better luck","next time"
  491. 61080 data"easy game","isn't it"
  492. 61090 data"smile! it's","only money"
  493. 61100 data"if anyone   ","you need a  ","needs a loan","kick in the "
  494. 61120 data"i charge 30%","ass. i'll do","per day.    ","it for free "
  495. 61140 data"call me when","remember to ","you've got  ","bring your  "
  496. 61160 data"more money  ","cheque book ","to give away","next time   "
  497. 61180 data"well it's   ","yeah! but   ","been a great","even nicer  "
  498. 61200 data"night hasn't","if you had  ","it!!        ","stayed home "
  499. 61220 data"anyone feel ","only if you ","like going  ","are paying  "
  500. 61240 data"out for beer","you've got  ","and pizza   ","all my money"
  501.